Ì € 2
main
[urn]
*(E1)EBA[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 25 URN L MRI.PAT ea
any.checkmark 1 FREE L VAL=IF{@MRI.ALLERGY.last.update @Z.check.mark.data;" "
VAL=}
any.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.any.check
VAL=mark_@Color.use(@Z.color.data)
anye.checkmark 1 FREE L VAL=IF{IF{@t.MRI.ALLERGY.last.update;@MRI.ALLERGY.last
VAL=.update} @Z.check.mark.data;" "}
anye.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.anye.chec
VAL=kmark_@Color.use(@Z.color.data)
anyt.checkmark 1 FREE L VAL=IF{@t.MRI.ALLERGY.last.update @Z.check.mark.data;"
VAL= "}
anyt.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.anyt.chec
VAL=kmark_@Color.use(@Z.color.data)
last.update 10 PINT R *(E1)EBA[ea]|0
last.update.date 8 DATE L VAL=%Z.date.in.magic(@last.update)
last.update.time 4 HHMM L VAL=%Z.time.out(@last.update)
merged.time 10 PINT R *(E1)EBA[ea]|1
patient 30 FREE L
Ì € 2
audit.trail
[urn, audit.q]
*(E1)EBA[ea]A[ebaA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.q 3 PINT R ebaA
au.allergy 60 FREE L *(E1)EBA[ea]A[ebaA]|5
au.allergy.text 60 FREE L VAL=IF{@au.type#0="U" @au.allergy;@au.allergy^XX (XX,"
VAL=-",@MIS.ALLERGY.name[XX])}
au.any.text 1 YN L VAL=IF{@audit.text[1] "Y";"N"}
au.any.text.checkmark 1 FREE L VAL=IF{@audit.text[1] @Z.check.mark.data}
au.date 8 DATE L *(E1)EBA[ea]A[ebaA]|0
au.db 12 FREE L MIS.APPL.DB *(E1)EBA[ea]A[ebaA]|3
au.new.value 70 FREE L *(E1)EBA[ea]A[ebaA]|7
au.old.value 70 FREE L *(E1)EBA[ea]A[ebaA]|6
au.time 4 HHMM L *(E1)EBA[ea]A[ebaA]|1
au.type 7 CHOICE L *(E1)EBA[ea]A[ebaA]|4
au.user 10 FREE L MIS.USER *(E1)EBA[ea]A[ebaA]|2
au.user.name 34 FREE L VAL=IF{@MIS.USER.name[@au.user];@au.user}
Ì € 2
audit.trail.text
[urn,audit.q, audit.text.q]
*(E1)EBA[ea]A[ebaA]T[ebaAT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.text.q 3 PINT R ebaAT
audit.text 70 FREE L *(E1)EBA[ea]A[ebaA]T[ebaAT]
Ì € 2
ccs.pha.sources
[urn, ccs.ext.mri.db]
*(E1)EBA[ea]CCSPS[huzcx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.ext.mri.db 12 FREE L UNV.EXT.DB huzcx
ccs.any.checkmark 1 FREE L VAL=IF{@MRI.ALLERGY.ccs.last.update @Z.check.mark.data
VAL=;" "}
ccs.any.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.ccs.any.c
VAL=heckmark_@Color.use(@Z.color.data)
ccs.anye.checkmark 1 FREE L VAL=IF{IF{@t.MRI.ALLERGY.ccs.last.update;@MRI.ALLERGY.
VAL=ccs.last.update} @Z.check.mark.data;" "}
ccs.anye.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.ccs.anye.
VAL=checkmark_@Color.use(@Z.color.data)
ccs.anyt.checkmark 1 FREE L VAL=IF{@t.MRI.ALLERGY.ccs.last.update @Z.check.mark.da
VAL=ta;" "}
ccs.anyt.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.ccs.anyt.
VAL=checkmark_@Color.use(@Z.color.data)
ccs.last.merged.time 10 PINT R *(E1)EBA[ea]CCSPS[huzcx]|1
ccs.last.update 10 PINT R *(E1)EBA[ea]CCSPS[huzcx]|0
ccs.last.update.date 8 DATE L VAL=%Z.date.in.magic(@ccs.last.update)
ccs.last.update.time 4 HHMM L VAL=%Z.time.out(@ccs.last.update)
Ì € 2
ccs.pha.audit.trail
[urn,ccs.ext.mri.db, ccs.audit.q]
*(E1)EBA[ea]CCSPS[huzcx]A[ebaA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.audit.q 3 PINT R ebaA
ccs.au.allergy 60 FREE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|5
ccs.au.allergy.text 60 FREE L VAL=IF{@ccs.au.type#0="U" @ccs.au.allergy;@ccs.au.alle
VAL=rgy^XX (XX,"-",@MIS.ALLERGY.name[XX])}
ccs.au.any.text 1 YN L VAL=IF{@ccs.audit.text[1] "Y";"N"}
ccs.au.date 8 DATE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|0
ccs.au.db 12 FREE L MIS.APPL.DB *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|3
ccs.au.new.value 70 FREE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|7
ccs.au.old.value 70 FREE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|6
ccs.au.time 4 HHMM L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|1
ccs.au.type 7 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|4
ccs.au.user 10 FREE L MIS.USER *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|2
ccs.au.user.name 34 FREE L VAL=IF{@MIS.USER.name[@ccs.au.user];@ccs.au.user}
cs.au.any.text.checkmark 1 FREE L VAL=IF{@ccs.audit.text[1] @Z.check.mark.data}
Ì € 2
ccs.pha.audit.trail.text
[urn,ccs.ext.mri.db,ccs.audit.q, ccs.audit.text.q]
*(E1)EBA[ea]CCSPS[huzcx]A[ebaA]T[ebaAT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.audit.text.q 3 PINT R ebaAT
ccs.audit.text 70 TEXT L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]T[ebaAT]
Ì € 2
ccs.pha.coded
[urn,ccs.ext.mri.db, ccs.allergy]
*(E1)EBA[ea]CCSPS[huzcx]C[gel]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.allergy 15 FREE L MIS.ALLERGY gel
ccs.allergy.mne.and.name 53 FREE L VAL=(ccs.allergy,"-",@MIS.ALLERGY.name)
ccs.allergy.name 35 FREE L VAL=@MIS.ALLERGY.name
ccs.any.text.mark 1 FREE L VAL=IF{@t.ccs.text.line[1] @Z.check.mark.data;" "}
ccs.coded.temp.fields 200 FREE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]x
ccs.date 8 DATE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|2
ccs.edit.tect 1 YN L *(E1)EBA[ea]CCSPS[huzcx]C[gel]x|1
ccs.pt.reaction 60 FREE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|4
ccs.severity 1 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|1
ccs.time.stamp 10 PINT R *(E1)EBA[ea]CCSPS[huzcx]C[gel]|5
ccs.type 7 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|0
ccs.update 1 YN L *(E1)EBA[ea]CCSPS[huzcx]C[gel]x|0
ccs.verified 1 YN L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|3
Ì € 2
ccs.pha.text
[urn,ccs.ext.mri.db,ccs.allergy, ccs.text.q]
*(E1)EBA[ea]CCSPS[huzcx]C[gel]T[ebaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.text.q 3 PINT R ebaQ
ccs.text.line 60 TEXT L *(E1)EBA[ea]CCSPS[huzcx]C[gel]T[ebaQ]
Ì € 2
ccs.pha.uncoded
[urn,ccs.ext.mri.db, ccs.uallergy]
*(E1)EBA[ea]CCSPS[huzcx]U[gelU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.uallergy 60 FREE L gelU
ccs.uany.text.mark 1 FREE L VAL=IF{@t.ccs.utext.line[1] @Z.check.mark.data;" "}
ccs.udate 8 DATE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|2
ccs.uedit.text 1 YN L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]x|0
ccs.uncoded.temp.fields 200 FREE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]x
ccs.upt.reaction 60 FREE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|3
ccs.useverity 1 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|1
ccs.utime.stamp 10 PINT R *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|4
ccs.utype 7 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|0
Ì € 2
ccs.pha.utext
[urn,ccs.ext.mri.db,ccs.uallergy, ccs.utext.q]
*(E1)EBA[ea]CCSPS[huzcx]U[gelU]T[ebaQU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.utext.q 3 PINT R ebaQU
ccs.utext.line 60 TEXT L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]T[ebaQU]
Ì € 2
coded
[urn, allergy]
*(E1)EBA[ea]C[gel]
Field Name Len Dat Typ J DPM Offset/Local/VAL
allergy 15 FREE L MIS.ALLERGY gel
allergy.mne.and.name 53 FREE L VAL=(allergy,"-",@MIS.ALLERGY.name)
allergy.name 35 FREE L VAL=@MIS.ALLERGY.name
any.text.mark 1 FREE L VAL=IF{@t.text.line[1] @Z.check.mark.data;" "}
coded.temp.fields 200 FREE L *(E1)EBA[ea]C[gel]x
date 8 DATE L *(E1)EBA[ea]C[gel]|2
edit.text 1 YN L *(E1)EBA[ea]C[gel]x|1
pt.reaction 60 FREE L *(E1)EBA[ea]C[gel]|4
severity 1 CHOICE L *(E1)EBA[ea]C[gel]|1
time.stamp 10 PINT R *(E1)EBA[ea]C[gel]|5
type 7 CHOICE L *(E1)EBA[ea]C[gel]|0
update 1 YN L *(E1)EBA[ea]C[gel]x|0
verified 1 YN L *(E1)EBA[ea]C[gel]|3
Ì € 2
text
[urn,allergy, text.q]
*(E1)EBA[ea]C[gel]T[ebaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
text.q 3 PINT R ebaQ
text.line 60 TEXT L *(E1)EBA[ea]C[gel]T[ebaQ]
Ì € 2
uncoded
[urn, uallergy]
*(E1)EBA[ea]U[gelU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
uallergy 60 FREE L gelU
uany.text.mark 1 FREE L VAL=IF{@t.utext.line[1] @Z.check.mark.data;" "}
udate 8 DATE L *(E1)EBA[ea]U[gelU]|2
uedit.text 1 YN L *(E1)EBA[ea]U[gelU]x|0
uncoded.temp.fields 200 FREE L *(E1)EBA[ea]U[gelU]x
upt.reaction 60 FREE L *(E1)EBA[ea]U[gelU]|3
useverity 1 CHOICE L *(E1)EBA[ea]U[gelU]|1
utime.stamp 10 PINT R *(E1)EBA[ea]U[gelU]|4
utype 7 CHOICE L *(E1)EBA[ea]U[gelU]|0
Ì € 2
utext
[urn,uallergy, utext.q]
*(E1)EBA[ea]U[gelU]T[ebaQU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
utext.q 3 PINT R ebaQU
utext.line 60 TEXT L *(E1)EBA[ea]U[gelU]T[ebaQU]
Ì 2
process.main
/EBZP
Field Name Len Dat Typ J DPM Offset/Local/VAL
pr.beg.col 3 PINT R /EBZP["E"]|6
pr.beg.row 3 PINT R /EBZP["E"]|5
pr.button.screen 2 PINT R /EBZP["E"]|9
pr.current 3 PINT R /EBZP["E"]|0
pr.itn 3 PINT R /EBZP["E"]|2
pr.max.ht 3 PINT R /EBZP["E"]|3
pr.max.lines 3 PINT R /EBZP["E"]|7
pr.max.wid 3 PINT R /EBZP["E"]|4
pr.selected.total 3 PINT R /EBZP["E"]|8
pr.top 3 PINT R /EBZP["E"]|1
Ì € 2
process.allergies
[pr.seq]
/EBZP["E",ebzpN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pr.seq 3 PINT R ebzpN
pr.2le 1 FREE L /EBZP["E",ebzpN]|12
pr.allergy 15 FREE L MIS.ALLERGY /EBZP["E",ebzpN]|10
pr.date 8 FREE L /EBZP["E",ebzpN]|7
pr.heading 1 FREE L /EBZP["E",ebzpN]|2
pr.heading.total 3 FREE L /EBZP["E",ebzpN]|3
pr.mark 1 FREE L /EBZP["E",ebzpN]|0
pr.options 10 FREE L /EBZP["E",ebzpN]|9
pr.pt.reaction 36 FREE L /EBZP["E",ebzpN]|4
pr.selected 10 FREE L /EBZP["E",ebzpN]|1
pr.severity 8 FREE L /EBZP["E",ebzpN]|6
pr.text 36 FREE L /EBZP["E",ebzpN]|4
pr.type 8 FREE L /EBZP["E",ebzpN]|5
pr.uncoded 1 YN L /EBZP["E",ebzpN]|11
pr.verified 8 FREE L /EBZP["E",ebzpN]|8
Ì 2
views
[view.mri.urn,view.user]
?(E)EBAV[ea,gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
view.mri.urn 25 URN L MRI.PAT ea
view.user 10 FREE L MIS.USER gu
view.time 10 PINT R ?(E)EBAV[ea,gu]|0
|
|
| | | | | | | | | | | | | | |